5 GOSUB 6000
6 GOSUB 7000
7 :
8 PRINT"[147] SIX PACK READY":REM                 THE FOLLOWING LINES ARE ORGINAL
9 :
10 REM 64 SIXPACK PLUS-KARL JOHNSON III
20 FORJ=51968TOJ+204:READK:POKEJ,K:NEXT
30 SYS 52005:END
31 DATA 72,138,72,152,72,8,32,228,255,201,191,208,3,238,32,208,201,174,208
32 DATA 3,238,33,208,201,13,208,235,169,0,133,198,40,104,168,104,170,104,162
33 DATA 58,160,203,142,6,3,140,7,3,120,162,70,142,20,3,140,21,3,88
34 DATA 96,72,173,141,2,201,1,240,249,104,76,26,167,165,197,201,64,240,22
35 DATA 201,7,240,21,165,215,201,133,240,32,201,134,240,28,201,135,240,24,201
36 DATA 136,240,20,76,49,234,166,145,224,251,208,8,162,24,160,0,24,32,240
37 DATA 255,76,49,234,166,154,224,3,208,247,56,233,133,10,10,10,10,24,105,152
38 DATA 133,251,169,203,133,252,160,0,177,251,240,225,32,210,255,200,208,246
39 DATA 68,65,84,65,32,0,0,0,0,0,0,0,0,0,0,0,76,79,65,68,34,36,34,44,56,0,0
40 DATA 0,0,0,0,0,86,69,82,73,70,89,34,42,34,44,56,0,0,0,0,0,76,73,83,84,0
50 :
60 :
70 :
80 :
90 REM THE FOLLOWING LINES ARE ADDED
91 :
92 :
93 :
94 :
6000 POKE53280, 0:POKE53281, 0:PRINT"[147]";
6001 PRINT"[155][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
6002 PRINT"[152]    loadstar presents     "
6003 PRINT"[151][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
6004 PRINT"[172]                    [146][187]"
6005 PRINT"                      "
6006 PRINT"     [211] [201] [216] [208] [193] [195][160][203]    "
6007 PRINT"[163][163][163][163][163][163][163][163][163][160]                     [146][163][163][163][163][163][163][163][163][163][160]       [208] [204] [213] ";
6008 PRINT"[211]      [160]"
6009 PRINT"[163][163][163][163][163][163][163][163][163]                      [146][163][163][163][163][163][163][163][163][163]                ";
6010 PRINT"     [160]"
6011 PRINT"[163][163][163][163][163][163][163][163][163]  bY kARL jOHNSON iii[160][146][163][163][163][163][163][163][163][163][163]                ";
6012 PRINT"      "
6013 PRINT"[188]                    [146][190]"
6014 PRINT"[155][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
6015 PRINT"[152] press space[160]to[160]continue  "
6016 PRINT"[151][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
6020 GETA$:IFA$<>" "THEN6020
6030 RETURN
7000 POKE53280, 0:POKE53281, 0:PRINT"[147]";
7001 PRINT"[155][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
7002 PRINT"[152]    [211][201][216][208][193][195][203][160][208][204][213][211]    "
7003 PRINT"[151][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
7004 PRINT"[206][207][212][201][195][197]:[155][207]NCE[158][211][201][216][208][193][195][203][208][204][213][211][155]IS"
7005 PRINT"ACTIVATEDYOUWILLHAVETO"
7006 PRINT"REBOOT[158]loadstar[155]TORETURN"
7007 PRINT"TOTHEMENUSYSTEM."
7008 PRINT"[154][196]OYOUWANTTOCONTINUE? ([217]/[206])"
7010 GETA$:IFA$="Y"ORA$="[217]"THEN RETURN
7020 IFA$="N"ORA$="[206]"THEN7030
7025 GOTO 7010
7030 OPEN15,8,15,"R0:ONE-SCREEN WINNERS=ONE-SCREEN WINNERS":INPUT#15,ER:CLOSE15
7035 IFER<>63 THEN PRINT"[147]":END
7040 LOAD"ONE-SCREEN WINNERS",8